www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\srcshow.asp
<!--#include file="Include/LiangjingConn.asp"-->
<!--#include file="Include/Function.asp"-->
<!--#include file="Include/Cls_Class.asp"-->
<!--#include file="Include/header.asp"-->
<%
Dim Default
set Default = New Cls_Default
Call Default.Get_Search()
Set Default = Nothing
%>
</div>
<%Response.Write("<div id=""headRound"" class=""clear""><span class=""left""></span><span class=""right""></span></div>")%>
<%
action = Request("action")
Src_ID = Request("Src_ID")
Re_ID = Request("Re_ID")
if Src_ID = "" or isnumeric(Src_ID) = false then
Response.Redirect("index.asp")
Response.End()
end if
set rs=conn.execute("SELECT top 1 Src_UserID from Liangjing_Source where Src_ID="&Src_ID)
if not rs.eof then
ssrc_userid=trim(rs("src_userid"))
end if
rs.close
set rs=nothing
if action = "delSrc" then
if Session("_WIsSupper") = true then
Sql = "Delete From Liangjing_Source Where Src_ID="&Src_ID
conn.execute(Sql)
else
Call Wodig.MsgBox2("哈哈，您有点越轨行为哦！",1,"SrcShow.asp?Src_ID="&Src_ID)
Response.End()
end if
Response.Redirect("index.asp")
elseif action = "IsOver" then
'是否暂停些资源的发布处理。。。。
if Session("_WIsSupper") = true then
Over_Type = Request("Over_Type")
Sql = "Update Liangjing_Source Set Src_IsOver="&Over_Type&",Src_ModifyDate='"&Now()&"' Where Src_ID="&Src_ID
conn.execute(Sql)
Response.Redirect("index.asp")
else
Call MsgBox2("呵呵，您有点越轨行为哦！",1,"SrcShow.asp?Src_ID="&Src_ID)
Response.End()
end if
elseif action = "delRevert" then
Sql = "Delete From Liangjing_SrcRevert Where Re_ID="&Re_ID
if Session("_WIsSupper") = false then '如果不是管理员，就应该对回复内容的所有人进行判断
Sql = Sql & " and Re_UserID="&Session("_WUserID")
end if
conn.execute(Sql)
conn.execute("update Liangjing_Source set Src_RevertNum=Src_RevertNum-1 where Src_ID="&Src_ID)
Response.Redirect("SrcShow.asp?Src_ID="&Request("Src_ID"))
elseif action = "IsSupper" then
'是否推荐到顾问团的处理。。。。
if Session("_WIsSupper") = true then
Sql = "Update Liangjing_SrcRevert Set Re_IsSupper="&Request.QueryString("act")&" Where Re_ID="&Re_ID
conn.execute(Sql)
Response.Redirect("SrcShow.asp?Src_ID="&Request("Src_ID"))
else
Call MsgBox2("呵呵，您有点越轨行为哦！",1,"SrcShow.asp?Src_ID="&Src_ID)
Response.End()
end if
end If
if request.QueryString("action") = "Hit" then
Call WoDig.Set_Hit(Request("Src_ID"))
Response.end
end if
Set Rs = Server.CreateObject("Adodb.recordset")
Sql = "SELECT Liangjing_Source.*, Liangjing_User.User_CoolName, Liangjing_User.User_Address, Liangjing_SrcType.Type_name, Liangjing_SrcChild.Child_name " & _
"FROM Liangjing_SrcChild INNER JOIN (Liangjing_SrcType INNER JOIN (Liangjing_Source INNER JOIN Liangjing_User ON Liangjing_Source.Src_UserID = Liangjing_User.User_ID) ON Liangjing_SrcType.Type_id = Liangjing_Source.Src_TypeID) ON Liangjing_SrcChild.Child_id = Liangjing_Source.Src_ChildID " & _
"WHERE Liangjing_Source.Src_ID="&Src_ID
if Session("_WUserID")<>ssrc_userid then
sql = sql &" and Liangjing_Source.Src_IsOver=False"
end if
Rs.open Sql,conn,1,2
if rs.eof then
Call Wodig.MsgBox2("无法找到资源！",0,"0")
Response.End()
else
Rs("Src_SeeNum") = Rs("Src_SeeNum") + 1
Rs.Update
Src_Type = Rs("Src_TypeID") '类型
Src_Child = Rs("Src_ChildID") '二级类别
Src_SeeNum = Rs("Src_SeeNum")
end if
Src_Type = -1
str_PageUrl = Request.ServerVariables("PATH_INFO")
Response.Write("<script type=""text/javascript"" src=""js/weiboid.js""></script>"&vbcr)
%>
<div id="mainWrapper" class="clear" style="min-height:260px;background:#C9F1FF;);">
<div class="wording">
</div>
<div class="loginBox">
<script>
<!--
function copy_text(text){
window.clipboardData.setData('text',text);
alert("链接已经复制，您可以直接粘贴!");
}
-->
</script>
<br />
<table width="<%=Web_TPageWidth%>" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="98%" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><font style="font-size:13px;font-weight:bold;color:#111000;">信息详细</font></td>
</tr>
</table>
<table width="98%" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" class="ptttd1" align="left">信息标题 : <%=Server.HTMLEncode(Rs("Src_Title")) %></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
</tr>
<tr>
<td height="1" background="images/dot.jpg"></td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="3" style="table-layout:fixed">
<tr>
<td width="52" rowspan="2" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="52" height="50" background="images/dig1.gif">
<div align="center" id="Src_HitNum<%=Rs("Src_ID")%>" class="ptttd1"><% =Rs("Src_HitNum") %></div></td>
</tr>
<tr>
<td height="3"></td>
</tr>
<tr>
<td height="25" background="images/dig2.gif"><div id="Src_ID<%=Rs("Src_ID")%>" align="center"><%=WoDig.Is_Hit(Rs("Src_ID"))%></div></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top" style="WORD-WRAP:break-word">
<%
Response.Write("<span class='pl'><a href='My.asp?User_ID="&Rs("Src_UserID")&"' target='_blank'>"&Server.HTMLEncode(Rs("User_CoolName"))&"</a> </span>")
Response.write("<span class='green'>在"& Rs("Src_AddDate") &"发布说:</span><br />")
src_Desc = Rs("Src_Desc")
Response.Write "<div style=""clear:both;text-align:center;"">"
if Web_IsUploadShowImg = 1 then
if Rs("Src_Img") <> Web_Noimage and isNull(Rs("Src_Img"))=false then
ImgPath_2 = WoDig.Pub_SetImgWH(Rs("Src_Img"),Int(Web_ContentImgMaxWidth),Int(Web_ContentImgMaxHeight))
Response.Write("<img "&ImgPath_2&" align='"&Web_ContentImgLocation&"'>")
end if
end If
Response.Write "</div>"
Response.Write "<div style=""clear:both;"">"
if src_Desc <> "" then
Response.Write WoDig.DecodeFilter(Src_Desc,"SCRIPT,TABLE,CLASS,XML,NAMESPACE,MARQUEE,OBJECT,STYLE,DIV")
end if
Response.Write "</div>"
%>
<br/>
<%
if Web_SrcUrlShow=true and Rs("Src_Url")<>"" and Rs("Src_Url")<>"http://" then
%>
<span class="mn">网站链接：</span><a href="<% =Server.HTMLEncode(Rs("Src_Url")) %>" target="_blank"><% =Server.HTMLEncode(Rs("Src_Url")) %>
</a><br />
<%
end if
%>
<div style="clear:both;"></div>
<img src="Images/ico_category.gif" width="15" height="14" /> <span class="green">分类：</span><a href="index.asp?Src_Child=<%=Rs("Src_ChildID")%>"><%=Rs("Child_Name")%></a> | <img src="Images/ico_category.gif" width="15" height="14" /> <span class="green">Tags：</span>
<%=WoDig.Get_SrcTags(Rs("Src_ID"))%>
</td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="right">
<%
if Session("_WUserID") = trim(Rs("Src_UserID")) Or Session("_WIsSupper")=True then %>
<img src="images/icons/icon_edit.gif" alt="修改" width="16" height="16" />
<a href="ReSubmits.asp?Src_ID=<%=Rs("Src_ID")%>">编辑</a>
<%
End IF
If Session("_WIsSupper") = true then
%>
<script language="javascript">
function IsOver(Src_ID,type){
var alertText;
if(type==1){
alertText='确认不通过并停止些资源的发布吗？';
}else{
alertText='确认通过并将此资源发布吗？';
}
if(confirm(alertText)){
location.href="SrcShow.asp?action=IsOver&Src_ID="+Src_ID+"&Over_Type="+type;
}
}
</script>
<%
Response.Write("<img src='images/icons/13.gif' width='16' height='16' />")
If Rs("Src_IsOver") = false then
Response.Write("<a href='javascript:IsOver("&Rs("Src_ID")&",1);'>不发布</a>")
Else
Response.Write("<a href='javascript:IsOver("&Rs("Src_ID")&",0);'>发布</a> ")
End If
%>
<script language="javascript">
function IsDel(src_id){
if(confirm("您确定要删除此网站资源吗？")){
location.href="SrcShow.asp?action=delSrc&src_id="+src_id;
}
}
</script>
<img src="images/icons/icon_del.gif" alt="删除" width="16" height="16" />
<a href="javascript:IsDel(<%=Rs("Src_ID")%>);">删除</a>
<%
end if
%> </td>
</tr>
</table>
<table width="98%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td background="images/dot.jpg"></td></tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="40"> <div align="right"><a href="SrcRevert.asp?Src_ID=<%=Src_ID%>">我要评论啦</a>>>> <a href="javascript:history.back();">回去再看看</a>>>></div></td>
</tr>
</table>
<table width="98%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td background="images/dot.jpg"></td></tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
<tr>
<td height="25" bgcolor="#F5F5F3"> <img src="images/ico_comments.gif" width="16" height="16" /> <span id="re_count" class="mn"></span></td>
</tr>
<tr><td height="10"></td></tr>
</table>
<%
Rs.close
Sql = "SELECT Liangjing_SrcRevert.*, Liangjing_User.User_CoolName, Liangjing_User.User_Address, Liangjing_User.User_ID,Liangjing_User.User_Photo, * FROM Liangjing_User INNER JOIN Liangjing_SrcRevert ON Liangjing_User.User_ID = Liangjing_SrcRevert.Re_UserID Where Re_SrcID=" & Src_ID & " Order By Re_AddTime Desc"
Rs.open Sql,conn
Re_Count = 0
While Not Rs.eof
Re_Count = Re_Count + 1
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="5">
<tr>
<td width="48" valign="top"><table border="0" cellpadding="0" cellspacing="1" bgcolor="#e1e1e1">
<tr>
<td bgcolor="#FFFFFF"><img src="<% =Rs("user_photo")%>" width="48" height="48"/></td>
</tr>
</table></td>
<td valign="top">
<%
Response.Write("<span class='pl'><a href='My.asp?User_ID="&Rs("Re_UserID")&"' target='_blank'>"&Server.HTMLEncode(Rs("User_CoolName"))&"</a> </span><span class='green'>在"&Rs("Re_AddTIme")&"评价道:</span><br /><br />")
Re_Desc = Rs("Re_Content")
if Re_Desc <> "" then
Response.Write WoDig.DecodeFilter(Re_Desc,"SCRIPT,TABLE,CLASS,XML,NAMESPACE,FONT,MARQUEE,OBJECT,STYLE,DIV")
end if
%>
</td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="right">
<%
if Session("_WUserID") = trim(Rs("Re_UserID")) Or Session("_WIsSupper") = true then %>
<script language="javascript">
function IsDel2(re_id,src_id){
if(confirm("您确定要删除此条网站评论吗？")){
location.href="SrcShow.asp?action=delRevert&src_id="+src_id+"&re_id="+re_id;
}
}
</script>
<img src="images/icons/icon_edit.gif" alt="修改" width="16" height="16" />
<a href="EditRevert.asp?Src_ID=<%=Src_ID%>&Re_ID=<%=Rs("Re_ID")%>">编辑</a>
<%
End If
If Session("_WIsSupper") = true then
%>
<img src="images/icons/icon_del.gif" alt="删除" width="16" height="16" />
<a href="javascript:IsDel2(<%=Rs("Re_ID")%>,<%=Src_ID%>);">删除</a>
</div>
<% end if %>
</td>
</tr>
</table>
<table width="98%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td background="images/dot.jpg"></td></tr>
</table>
<%
Rs.MoveNext
Wend
Response.Write("<script language='javascript'>document.all.re_count.innerHTML='"&Web_UserCName&"微博成员的回应 (<font color=#ff0000><strong> "&Re_Count&" </strong></font>)';</script>")
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
<tr>
<td height="25" bgcolor="#F5F5F3"><img src="images/icons/19.gif" width="16" height="16" /> <span id="re_count" class="mn">哪些人投了票</span></td>
</tr>
<tr>
<td height="10"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr></tr>
<tr>
<td height="23" style="padding-left:5px;padding-right:5px;"><%
Set Rs_SrcHit = Conn.Execute("SELECT Liangjing_User.User_ID,Liangjing_User.User_CoolName,Liangjing_User.User_Photo FROM Liangjing_SrcHit INNER JOIN Liangjing_User ON Liangjing_SrcHit.Hit_UserID = Liangjing_User.User_ID Where Liangjing_SrcHit.Hit_SrcID="&Src_ID)
while Not Rs_SrcHit.eof
Response.Write("<img src='"&Rs_SrcHit("User_Photo")&"' width='16' height='16'><a href='My.asp?User_ID="&Rs_SrcHit("User_ID")&"' target='_blank'>"&Server.HTMLEncode(Rs_SrcHit("User_CoolName"))&"</a> ")
Rs_SrcHit.MoveNext
Wend
Rs_SrcHit.Close
Set Rs_SrcHit = Nothing
%>
</td>
</tr>
</table>
<table width="98%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td background="images/dot.jpg"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="40"><div align="right"><a href="SrcRevert.asp?Src_ID=<%=Src_ID%>">我要评论啦>>></a></div></td>
</tr>
</table>
<script type="text/javascript"><!--
google_ad_client = "pub-3406709034811813";
/* 468x60, 创建于 08-10-8 */
google_ad_slot = "5358810018";
google_ad_width = 468;
google_ad_height = 60;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</td>
<td width="1" valign="top" bgcolor="#E1E1E1"></td>
<td width="<%=Web_RightWidth%>" valign="top">
<%=WoDig.leftMyconfig()%>
<br />
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><p><span class="mn">分享这个微博信息</span><br />
<img src="images/icons/13.gif" width="16" height="16" /> <a href="javascript:copy_text('<%=WoDig.GetUrl2()%>');">复制这个链接发送给朋友></a>
<br />
<img src="images/icons/2.gif" width="16" height="16" /><span class="green"> </span><span class="hot"><%=Src_SeeNum%>个</span><%=Web_UserCName%>网友读过此条><br />
<br />
</p></td>
</tr>
</table>
<br />
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><p><span class="mn">你可能对这些话题也感兴趣</span><br />
<%
Rs.Close()
Sql = "Select Top 10 Src_ID,Src_Title From Liangjing_Source Where Src_IsOver=false and Src_ChildID="&Src_Child&" order by Src_HitNum Desc"
Rs.open Sql,conn
while not Rs.eof
Response.Write("<a href='SrcShow.asp?Src_ID="&Rs("Src_ID")&"'>"&Server.HTMLEncode(Rs("Src_Title"))&"</a>")
Response.Write("<br />")
Rs.MoveNext
wend
Rs.Close
Set Rs = nothing
%>
</p></td>
</tr>
</table>
<br />
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><p><span class="mn">信息标签</span> <a href="tags.asp">更多标签信息>></a><br />
<%=WoDig.Get_TagsList(Web_WebTagsShowNum,Web_WebTagsColNum,Web_WebTagsDCount,Session("_WTypeID"),"Other") %>
</p></td>
</tr>
</table></td>
</tr>
</table>
<br />
</div>
</div>
<%Response.Write("<div id=""footRound"" class=""clear""><span class=""left""></span><span class=""right""></span></div>"&vbcr)%>
<!--#include file="Include/footer.asp"-->
<!--良精科技版权所有---->